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IBM 1401 COBOL (on Tape) Operating Procedures 


Machine Requirements 

The 1401 cobol processor can compile an object pro- 
gram for any ibm 1401 system that has at least 4,000 
positions of core storage. To process the cobol source 
program, the 1401 must have at least: 

• 4,000 positions of core storage 

• Four ibm magnetic-tape units 

• ibm 1403 Printer, Model 2 

• ibm 1402 Card Read-Punch 

• Advanced Programming Feature 

• High-Low-Equal Compare Feature 

• Sense switches. 

A minimum of 8000 positions of core storage is re- 
quired if a prescan diagnostic run (described later in 
this publication ) is to be performed. 

The 1401 on which the object program is to be exe- 
cuted must have: 

1. Sufficient core storage to contain the program pro- 
duced by the cobol processor. If the object program 
requires more than the available core-storage capac- 
ity, either the program must be executed in sections 
(overlays) or the job must be divided into multiple 
runs. This is a significant consideration when 
cobol is to be used on systems with 4000 posi- 
tions of main storage. 

2. The object machine must have the input and output 
units defined in the file-control paragraph. 

3. Advanced Programming Feature. 

4. High-Low-Equal Compare Feature. 

5. Sense switches when they are referred to in the 
special-names section. 

6. Multiply-Divide Feature if any of these entries ap- 
pears in the Procedure Division of the cobol source 
program: 

a. multiply verb 

b. divide verb 

c. compute verb when either /, *, or ** is used as 
the operator. 

Operating Functions 

The cobol system contains several processing functions 
that facilitate compiling and interpreting cobol pro- 
grams. These functions are: 

• Copying the pid tape. 

• Creating the cobol processor and extraction tapes. 

• Printing cobol phase listings. 

• Punching cobol subroutines and sample programs. 


• Placing cobol subroutines in the Autocoder library. 

• Compiling cobol source programs (cobol to Auto- 
coder). 

• Assembling cobol output (Autocoder to machine 

language). 

• Loading the object program. 

• Duplicating the 1401 cobol processor system tape. 

• Obtaining storage and tape prints for apars. 

The 1401 cobol processor is a self-loading magnetic 
tape. It should be labeled 1401 COBOL Processor Sys- 
tem with the current version number and modification 
level of the program. 

1401 COBOL Extraction System is a self-loading 
program written on magnetic tape. This program is 
used to print a listing of the cobol processor system, to 
punch the cobol subroutines deck used to update an 
Autocoder system tape, to punch the sample program: 
Table of Salaries (see Operating Functions ). 

The Table of Salaries in the sample problem is an 
example of how a computer can be directed by using 
cobol language to compute a set of values and list 
them in tabular form on the printer. The sample pro- 
gram is written in cobol source language and must be 
compiled and assembled before an object run can be 
made. 

To assemble the compiled output of the 1401 cobol 
processor, the user’s 1401 Autocoder system tape (the 
latest version and modification level) should be used. 
This tape must have been updated with the cobol sub- 
routines deck and should contain the specific IOCS 
appropriate to the user’s needs (see Placing COBOL 
Subroutines in the Autocoder Library). 

Operating instructions for using each of these items 
are included in this publication. 

In addition to the material presented here, the pro- 
grammer should be familiar with the material given in 
the 1401 Systems Reference Library ( SRL) publication 
that describes the ibm 1401 configuration for which the 
program is written. These are listed with form numbers 
in the IBM 1401 Bibliography ( A24-1495). 

The user must be familiar with the information con- 
tained in COBOL (on Tape) Specifications for IBM 
1401 (C24-1492) and the IBM COBOL General Infor- 
mation Manual (F28-8053). Together they provide pro- 
grammers with sufficient information to enable them to 
write programs in the 1401 cobol. To use the available 
features of 1 the cobol language and the cobol system 
effectively, the user should have a thorough under- 
standing of this material. 
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Copying the PID Tape 

The tape labeled 1401 COBOL PID Tape, sent by the 
ibm Program Information Department, can be copied 
as follows: 

1. Mount the pid tape on tape unit 1. 

2. Ready tape 2. 

3. Set sense switch G on (up). 

4. Press check reset. 

5. Press start reset. 

6. Press tape load. 

7. At the end of a successful run, a programmed halt 
occurs with the A-address register containing 003 . 

8. Remove the tapes from units 1 and 2. 

9. File-protect the tape from unit 2 and label it: 1401 
COBOL PID Tape. 

Creating COBOL Processor and 
Extraction Tapes 

The tape labeled 1401 COBOL PID Tape, sent by the 
ibm Program Information Department, is used for this 
operation. This tape is a self-loading program that pro- 
duces a 1401 COBOL Processor System tape and a 1401 
COBOL Extraction System tape. To obtain these tapes: 

1. Mount the pid tape on tape unit 1. 

2. Ready tapes 2 and 3. 

3. Press check reset. 

4. Press start reset. 

5. Press tape load. 

6. At the end of a successful run, a programmed halt 
occurs with the A-address register containing 002. 

7. Remove the tapes from the tape units and file-pro- 
tect them. 

8. Label the tape from unit 2: 1401 COBOL Processor 
System with Prescan. 

9. Label the tape from unit 3: 1401 COBOL Extraction 
System. 

If more than ten read or write errors are encountered 
for a given record while copying the pid tape or creat- 
ing the cobol processor and extraction tapes, a pro- 
grammed halt occurs with the A-address register con- 
taining 004 . Press the start key to reread or rewrite 
the record. 

Printing COBOL Phase Listings 

The tape labeled 1401 COBOL Extraction System, 
which is extracted from the 1401 cobol pid tape, is used 
for this operation. This tape contains a self-loading 
program that can be used to produce a symbolic listing 


of all phases of the 1401 cobol system. To obtain this 
listing: 

1. Place the 1401 COBOL Extraction System tape on 
tape unit 1. 

2. Press check reset and start reset. 

3. Press tape load. The program will stop at 364. 

4. Press start to produce the listing. 

5. After all phases have been printed, the program 
halts at 600. 

6. Press start reset and start to rewind the tape, or 
press start to punch the subroutines and the sample 
program. 

Punching COBOL Subroutines , Sample Program 

To punch subroutines and the sample program: 

1. Place the 1401 COBOL Extraction System tape on 
tape unit 1. 

2. Press check reset and start reset. 

3. Press tape load. The program will stop at 364. 

4. Press start reset and start. 

5. After the cobol subroutines and the sample problem 
have been punched, the program will stop at 709. 

6. The cobol subroutine decks and the sample problem 
decks should be separated and labeled for identifica- 
tion as follows: 

a. The deck with the identification number 70001 
punched in columns 76-80 should be labeled: 
4K COBOL Subroutines. 

b. The deck with identification number 70002 
punched in columns 76-80 should be labeled: 
> 4K Subroutines. 

c. The deck with identification number 70003 

punched in columns 76-80 should be labeled: 
COBOL Sample Program. 

Placing COBOL Subroutines in the 
Autocoder Library 

In this operation, an Autocoder system tape is up- 
dated to contain the routines needed to assemble the 
machine-language object program from the symbolic 
statements that the cobol processor produces from the 
cobol source program. 

The Autocoder system tape used should contain the 
specific IOCS and macro combinations appropriate for 
the user. This choice should be made according to the 
following criteria: 

1. If the user wants overlapped IOCS instructions to 
be generated, the Autocoder tape must contain 
IOCS with overlap. 


6 Tape COBOL Op. Proc. 



2. If the user wants non-overlapped IOCS instructions 
to be generated by the Autocoder system, the Auto- 
coder tape must contain IOCS without overlap. 

3. If the user wants non-overlapped IOCS instructions 
to be generated by the cobol system ( regardless of 
the object-computer entry), the Autocoder tape 
must contain those macros that will be used by the 
source program while in the enter autocoder mode. 

If full label checking is used, the rdlin macro should 

be included. 

cobol subroutines must be used to update the ap- 
propriate Autocoder tape for assemblies to be run on 

an ibm 1401 Data Processing System. 

To update the Autocoder tape: 

1. Place a current version of 1401 Autocoder on tape 
unit 1. 

2. Ready a tape on tape unit 6. 

3. Place either the 4K or > 4K COBOL subroutines in 
the card reader, depending on the size of the 
object machine used. 

4. Turn on sense s witches A and F. 

5. Press start reset. 

6. Press tape load. 

7. After the Autocoder system tape has been updated, 
the message 1401 autocoder system copied on tape 
unit 6 will be printed. 


Duplicating the 1401 COBOL 
Processor System Tape 

To make a copy of the 1401 cobol processor: 

1. Place the tape labeled 1401 COBOL Processor Sys- 
tem with Prescan on tape unit 1. 

2. Ready a working tape on tape unit 2. 

3. Place these two control cards in the card reader. 

Card Columns Content 

1 6-12 SYSTEMS 

16-18 RUN 

2 16-18 END 

4. Turn on i/o check stop. 

5. Turn on sense switch A. 

6. Press check reset. 

7. Press start reset. 

8. Press tape load. 

9. Press start. (Because there are only two control 
cards, the start key must be pressed a second time 
to read in the end control card.) 


10. After the tape has been duplicated, a program- 
med halt occurs; the A-address register contains 
040, and the message new system on unit 2 is 
printed. 


Performing a Prescan Diagnostic Run 

A prescan diagnostic run, a separate and optional run, 
checks the cobol source program before compilation. 
Input is from cards only. An end of source card ( see 
Compiling COBOL Source Programs), although it is 
not required and has no function in a prescan run, 
can be included at the end of the cobol source pro- 
gram. To perform a prescan diagnostic run: 

1. Mount the 1401 cobol processor system tape on 
tape unit 1. 

2. Mount scratch tapes on tape units 4, 5, and 6. 

3. Turn on sense switch A. 

4. Place the following control card ahead of the 
COBOL source program in the card reader: 

Columns Content 

6-9 DIAG 

16-18 RUN 

Note: A cobol run card must not be used in the pre- 
scan run. 

5. Press check reset and start reset. 

6. Press tape load. 

7. Press start when the machine halts. (This causes 
the last card from the reader to be read, and pre- 
scan processing to begin. ) 

When the prescan run is complete, the machine 
halts. The B-address register contains 999. 


Prescan Run Output 

The output from the prescan diagnostic run is in 
printed form, and includes at most, three separate 
listings: a source program listing, a name listing, and 
a sentence-structure-error listing. 

Source Program Listing: This listing contains the 
cobol source program (including sequence num- 
bers), and always appears in the prescan output. 
A sequence error in the listing is identified by an 
asterisk ( 8 ) following the sequence number. 

Name Listing: This listing contains all the procedure 
and data names used in the source program, plus 
an indication of the type of each data name. The 
name listing always appears in the prescan output. 
A name that refers to more than one field ( multide- 
fined) is identified by an M between the name and 
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its type indication. The M appears for all multide- 
fined names, whether qualified or not, and serves 
as a warning that such names require qualification. 
A cobol keyword, used incorrectly, is flagged by 
the word keyword preceding the type indication. 
(For examples of the name-associated diagnostics, 
see COBOL Diagnostic Usage . ) 
Sentence-Structure-Error Listing: This listing consists 
of sentence-structure-error diagnostics generated 
during the prescan run. It appears only if errors 
were made in any of the cobol sentences in the 
source program. (The sentence-structure-error diag- 
nostics are more fully explained under COBOL 
Diagnostic Usage. ) 

Compiling COBOL Source Programs 
( COBOL to Autocoder ) 

In this operation, the cobol source program and the 
cobol processor system tape are used. The processor 
compiles and assembles the object program in Auto- 
coder language. The 1401 cobol processor prints a list- 
ing of cobol source statements followed by the Auto- 
coder expansion of these statements at assembly time 
if desired by the user. This optional source-symbolic 
listing is controlled by sense switch G at compilation 
time. 

Either the card reader or a program library tape can. 
be used to supply the source program to the cobol 
processor. Two control cards regulate this process. 

1. The cobol run card conveys to the compiler a re- 
quest for a cobol compilation, the input option re- 
quested, and the program to be run ( if the tape op- 
tion was requested). The format of the cobol run 
card is: 


Columns 

Content 

6-10 

COBOL 

16-18 

RUN 

21-35 

15-character identification (only re- 
quired when tape option is used ) 

79-80 

% □ ( request for tape input ) 
bb ( request for card input ) 


2. The end of source card follows the last card of the 
source program. It is required when the source pro- 
gram is written on tape and when the source pro- 
gram is stacked in the card reader. Its format is : 

Columns Content 

1-13 END OF SOURCE 

If the user desires to use the program library feature, 

the following requisites must be met: 

1. The set of source programs must be recorded as one 
file, followed by a tape mark, and must be recorded 
as eighty-character move-mode records. (The 1401 
Multiple Utility Program will create this tape.) 

2. Each source program must be preceded by a cobol 
run card and followed by an end of source card. 

3. Each cobol run card must have a unique identifica- 
tion in columns 21-35 for the processor to select the 
correct source program ( the %□ punches are not re- 
quired in the cobol run card images on tape). If the 
processor fails to find the programs requested, it will 
rewind the library tape and search it once more. 
After compilation, the library tape will be posi- 
tioned at the next cobol run card. The cards placed 
into the card reader may consist only of cobol run 
cards with %□ punched in columns 79 and 80 (re- 
questing input from the program library), a single 
card deck (cobol run, source deck), a stack of card 
decks (cobol run, source deck, end of source, 
cobol run . . .), or any combination of the above. 

The following restrictions apply to the use of the 

cobol run and end of source cards : 

1. If input is to be from the card reader, the cobol 
run card must not have the %□ punches in columns 
79 and 80. 

2. If the input is from the card reader, only the last 
source program need not have an end of source 
card. 

To compile the cobol program: 

1. Place the tape labeled 1401 COBOL Processor Sys- 
tem on tape unit 1. 
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2. Ready the tapes on tape units 4, 5, and 6. 

3. Ready a tape on tape unit 3 if the cobol source 
symbolic listing option is used. 

4. Turn on i/o check stop. 

5. Turn on sense switches A and C. Turn off sense 
switches B, D, and E. 

6. Turn on sense switch F if IOCS generation by 
cobol is not desired, or if the overlap feature is 
used in the object program. 

7. Turn on sense switch G if the cobol source sym- 
bolic listing option is used. 

8. If this is the initial compilation of a stacked job or 
the compilation of a single program, place the 
cobol run card(s) and/or the source deck(s) in the 
card reader. 

If the program library option is used (%□ in 
columns 79 and 80 of single cobol run card(s)), 
mount the program library tape on unit 2. 

9. Press check reset. 

10. Press start reset. 

11. Press TAPE LOAD. 

12. Press start. 

13. When card reading stops, press the start key to 
read in the last card. 

14. At the end of a successful compilation, the mes- 
sages printed are: 

IF EXTRA OUTPUT DESIRED 
B ON FOR PUNCHED AUTOCODER 
D ON FOR PRINTED LISTING 
AND PRESS START 

IF NO EXTRA OUTPUT DESIRED, PRESS START 

15. After a successful compilation, the symbolic ob- 
ject program can be assembled. However, any 
errors indicated by diagnostics flagged by ** 
should be corrected before the symbolic object 
program is assembled. 

16. If a symbolic listing is desired before assembly, 
turn on sense switch D and press start. 

17. If a punched symbolic deck is desired, turn on 
sense switch B and press start. A symbolic listing 
and symbolic deck can be obtained by turning on 
sense switches B and D and pressing start. This 
sense-switch option can be used after the compila- 
tion has been completed and the message (de- 
scribed in item 13) has been printed. 

18. When no more output is desired, turn off sense 
switches B and D and press start. 

19. At the end of compilation, the tape on tape unit 4 
will contain the symbolic program. (The symbolic 
program will have been punched also if the option 


in item 16 was used.) The message end of com- 
pilation — autocoder on tape 4 will be printed. 


Assembling Autocoder Output 
( Autocoder to Machine Language ) 

The output from the cobol compilation process is the 
object program in Autocoder language. To assemble 
the machine-language object program: 

1. Place a current version of 1401 Autocoder (with 
cobol subroutines) on tape unit 1. 

2. Ready tapes on tape units 4, 5, and 6. 

3. Ready a tape on tape unit 3 if the cobol source pro- 
gram specified assign object program to tape. 

4. If card input is used, perform these eleven steps: 

a. Turn on sense switch A. 

b. Turn on i/o check stop. 

c. Place the Autocoder program deck in the card 
reader. 

d. Press check reset. 

e. Press start reset. 

f. Press TAPE LOAD. 

g. If assign object program to tape was not speci- 
fied, turn on the card-read punch. 

h. Press start. 

i. When card reading stops, press start to read in 
the last card. 

j. At the end of assembly, the message end of as- 
sembly will be printed. 

k. Press start. 

5. If tape input is used, perform these eight steps. 

a. Turn on sense switches A and C. 

b. Turn on i/o check stop. 

c. Press check reset. 

d. Press start reset. 

e. Press tape load. 

f. If assign object program to tape was not speci- 
fied, turn on the card read-punch and press start. 

g. At the end of assembly, the message end of as- 
sembly will be printed. 

h. Press start. 


Loading the Autocoder Object Program 

To load the object program into the object computer: 

1. If the object program is in punched-card form (in- 
stead of on tape), place the object deck in the card 
reader and turn on the reader. 

2. If the ASSIGN OBJECT PROGRAM TO TAPE Option was 
used in the cobol source program, place the Auto- 
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coder output ( the object program that was on tape 
unit 6 at the end of the Autocoder assembly) on tape 
unit 1. 

3. Press CHECK RESET. 

4. Press start reset. 

5. Turn on sense switch A and i/o check stop. 

6. If the object program is in card form, press program 
load. If the object program is on tape, press tape 
load. 


Obtaining Storage and Tape Prints for APAR's 

If difficulty is encountered during the processing of a 
cobol program, and the cobol processor is the cause 
of the error: 

1. Set the manual address switches to 0359. 

2. Set the mode switch to alter. 

3. Press check reset. 

4. Press the I-address register key. 

5. Press start reset. 

6. Press start. 

7. Set the mode switch to run. 

8. Press start. 

9. The contents of core storage and tapes 4, 5, and 6 
will be printed. 

10. After the tape prints are completed, the message 
tapes 5, 6, and 4 printed will be displayed on the 
listing. 

11. Contact your ibm Systems Engineer to submit an 
APAR (Authorized Programming Analysis Report). 

Note: If during the tape print program bad records cannot be 
bypassed, branch manually to 1729. 

COBOL Dictionary 

After the cobol source program and diagnostic mes- 
sages have been printed, the cobol dictionary is listed. 
The cobol dictionary is divided into three sections: 
Special Names 
Data Names 
Procedure Names 

In each section, all names used in the source program 
are listed beside the sequence number and the com- 
pressed cobol name developed during compilation by 
the cobol processor. This makes it possible to cross- 
reference items in the cobol source-program listing 
and the Autocoder symbolic listing. 

Figure 1 shows a sample cobol dictionary. The line 
labeled in Figure 1 refers to the procedure name 




*** COBOL 

DICTIONARY*** 

SPECIAL 

NAMES 


® 

8 

A16 

PUNCH 


9 

A 14 

PUNCH-A-CARD 


10 

A 1 5 

PUNCH-AND-PRINT 

DATA 

NAMES 


® 

19 

A10 

STATE-TAPE 

© 

27 

ALL 

PRINTER 

PROCEDURE NAMES 


© 

49 

J08 

HSKP 


50 

J02 

BEGIN 

© 

51 

J05 

CHECK-C 


Figure 1. cobol Dictionary 

begin which appears in the sample cobol source pro- 
gram shown in Figure 2. The cobol processor assigned 
begin the compressed name J02 and assigned the cobol 
statement the sequence number 50. In the symbolic 
listing of the Autocoder expansion (Figure 3), the 
cobol processor has used the compressed name J02 as 
the label for the equ statement labeled (d). 

To refer to the cobol source paragraph or statements 
that produced a particular expansion on the symbolic 
listing, look at the compressed cobol name and find its 
equivalent in the cobol dictionary. For example, the 
entry labeled (5) on line 19 of the symbolic listing is 
used as state-tape in the cobol source list. This entry 
also appears in the data-names section of the cobol 
dictionary. 


COBOL Diagnostic Usage 
Prescan Diagnostics 

An optional prescan diagnostic run can be performed 
by using the 1401 cobol processor system to check the 
source program for errors before compilation. 

Two types of diagnostic messages can be generated 
during a prescan run. The first type is name-associ- 
ated. The name associated messages appear as flags 
in the dictionary and refer to such errors as cobol 
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keywords used as data names. 

The following is an 

40 

CONFIGURATION SECTION. 

example of name-associated diagnostics: 

50 

SOURCE-COMPUTER. IBM-1401. 

TYPE 

SOURCE 

60 

OBJECT-COMPUTER. IBM-1401 NO- 

• 

• 

70 

OVERLAP 
SPECIAL NAMES. 

, , 


80 

1402-R IS READER 

SPEC M 

CARDS 

90 

1402-P IS PUNCH 

SPEC 

PRINTER 

100 

AUTON IS COBOLN 

SPEC 

OVERFLOW 

110 

AUTOZ IS COBOLZ 

SPEC 

LAST-CARD 

120 

1401-SS A ON STATUS IS LAST-CARD. 

FILE 

STATUS-FILE 

130 

DATA DIVISION. 

REC M 

CARDS 

, 


DATA 

CARD-ORDER 

, 

, 

** KEYWORD DATA 

DIGIT 

230 

PROCEDURE DIVISION. 

DATA 

RECORD 


• 

• 

• 

280 

PARAGRAPH2. 

In the preceding example, 

the cobol keyword, 

290 

IF COBOLZ IS EQUAL TO REF1 OR 

digit, was used as a name, and flagged. In addition, 
the name, cards, was used more than once in the 

300 

LESS 

OR GREATER THAN 2 OR NOT LESS 


source program and was flagged as being multide- 
fined. If cards has not been qualified in all its uses, 
an error exists. 

The second type of prescan diagnostic message 
describes problems encountered while analyzing the 
sentence structure of the source program. In the list- 
ing, the sequence number of the card containing the 
error statement relates that which should have been 
coded to that which was coded, If, in order to continue 
analysis of the source program, any part of the source 
program is dropped, the dropped item(s) are in- 
cluded as part of the diagnostic message. In special 
cases, the expected part of the diagnostic message 
might be replaced by a language term or a rule de- 
scribing a requirement of the cobol language, such as: 

ENVIRONMENT DIVISION MUST PRECEDE DATA DIVISION. 

To correct program errors of this type, the pro- 
grammer should analyze the diagnostics in sequence. 
Also, the correction process can be greatly facilitated 
if the programmer compares the source program error 
statement with the corresponding COBOL-prescribed 
format outlined in the SRL publication COBL (on 
Tape) Specifications for IBM 1401, Form C24-1492. 
Note, however, that items dropped as a result of an 
error in sentence structure are not analyzed prior to 
their deletion. 

The following is an example of analyzing cobol 
diagnostics: 

COBOL SOURCE PROGRAM 

SEQUENCE CARD IMAGE 


30 ENVIRONMENT DIVISION. 


310 THAN 7 THEN GO TO GOBOLN. 

320 PARAGRAPH3. 


COBOL DIAGNOSTICS 
SEQUENCE COMMENTS 

120 AUTOCODER NAME/ £ .=1401-SS= 

300 INVALID SUBJECT OR OBJECT=:OR=: 
From the preceding example, first consider the se- 
quence number 120. This diagnostic means that in se- 
quence number 120, either an Autocoder name or a 
period was expected. Instead, 1401-SS was sensed. As 
shown in the reference-format section of the COBOL 
(on tape) Specifications SRL publication, the special 
names paragraph is: 

SPECIAL-NAMES . 


device-name-1 IS mnemonic-name-1 [ device-name-2 IS 

"1 

■ ] 


mnemonic-name-2 


j^OFF 




switch-name- 1 ON STATUS IS condition-name - 


STATUS IS condition-name-2 


r r 

AUTOCODER-rwzme IS COBOL-naroe AUTOCODER . . 


L 



u 



The switch-name clause in sequence number 120 
(1401-SS etc.) should have preceded the Autocoder- 
name clauses in sequence numbers 100 and 110. 

Secondly, consider sequence number 300. This diag- 
nostic indicates that the error is in sequence number 
300. A valid subject or a valid object was expected; 
or was sensed. As shown in the COBOL (on tape) 
Specifications SRL publication, the format for rela- 
tional conditions is defined: 


j data-namc 
\ literal 

{ a rith m eti c exp ressi o n 


\ J IS [ NOT ] LESS THAN 
j (IS [ NOT ] EQUAL TO 


j data-name ^ 

\ literal / 

( arithmetic expression ) 

In the source statement (sequence 290 and 300), IF 
COBOLZ IS EQUAL TO REF1 OR LESS OR 
GREATER THAN 2 OR NOT LESS, there should be 
a data-name, a literal, or an arithmetic expression after 
less for comparison with the implied subject, cobolz. 
Instead, or was encountered. 

The meanings of the symbols in the sentence-struc- 
ture-error diagnostic message are: 

Symbol Meaning 

PROCEDURE-NAME Blanks bound COBOL-language terms 
and rules. 

‘SECTION’ Quotes bound literal values expected. 

—RAN— Equal signs bound literal values en- 

countered. 

(ALL TO MASTER) Parentheses bound literal values 
dropped. 

‘RUN’/Literal The slash represents the word OR. 


Additional examples of the prescan sentence-structure- 
error diagnostic are: 

620 UNDECLARED NAME = TAPE-ORDER = 
(TAPE-ORDER) 

The sequence number 620 is the number assigned to 
the card containing the statement in error; unde- 
clared name is a language term, bounded by blanks, 
representing an error that was encountered; — tape- 
order = is the undeclared name, bounded by equal 
signs; and (tape-order) is the item dropped, bounded 
by parentheses. 

650 ‘TO’ = ALL = (ALL TO MASTER) 

Sequence number 650 is the assigned sequence num- 
ber of the card containing the statement in error; 
‘to 5 is the literal value, bounded by quotes, expected 
by the compiler; = all = is the literal value, bounded 
by equal signs, encountered during the run; and (all 
to master) is the item dropped, bounded by paren- 
theses. 

Cobol Processor Diagnostics 

The cobol processor analyzes each statement for er- 
rors as it compiles the cobol source program. The 
processor supplies a diagnostic message describing 
the nature of a detected error and prints the mes- 
sage^) (ahead of the cobol dictionary) in this 
format: 

***DIAGNOSTICS*** 

FLAG REFERENCE SEQUENCE MESSAGE ERROR 

** B56 14 FORMAT 
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COBOL COMPILATION 


SEQUENCE CARD-IMAGE 


IDENTIFICATION 


1 IDENTIFICATION DIVISION. 


* 

2 PROGRAM-ID. STATES/CAPITAL DEBLOCKING AND LISTING. 

* 

3 ENVIRONMENT DIVISION. 


•* 

4 CONFIGURATION SECTION. 


* 

5 SOURCE-COMPUTER. IBM-1401 MEMORY 

SIZE 4000 CHARACTERS. 

-H- 

6 OBJECT-COMPUTER. IBM-1401. 


■* 

7 _ SPECIAL-NAMES. 


* 

8 (A) 

1402-P , 4 IS PUNCH. 


-H- 

9 W 

1401-SS, B ON STATUS IS 

PUNCH-A-CARD 

■* 

10 

1401-SS, C ON STATUS IS 

PUNCH-AND-PRINT. 

-W- 

11 INPUT 

-OUTPUT SECTION. 


* 

12 FILE- 

CONTROL. 


* 

13 

SELECT STATE-TAPE 


* 

14 

ASSIGN TO TAPE 1. 


* 

15 

SELECT PRINTER 


* 

16 

ASSIGN TO 1403-P. 


* 

17 DATA 

DIVISION. 



18 FILE 

SECTION. 


* 

19(B)FD 

STATE-TAPE 


* 

20 W 

BLOCK CONTAINS 5 RECORDS 

-H- 

21 

RECORD CONTAINS 81 CHARACTERS 

* 

22 

LABEL RECORDS ARE OMITTED 


23 

DATA RECORD IS SC-RECORD. 

* 

24 01 

SC-RECORD. 


•* 

25 

02 FIRST-IP PICTURE IS 

X5g80n . 

* 

26 _ 

02 REC-MARK PICTURE IS 

Xgln . 

* 

27(F)FD 

PRINTER 


-#■ 

28 ^ 

LABEL RECORDS ARE OMITTED 

* 


48 PROCEDURE DIVISION. 

© 49(C) HSKP. OPEN INPUT STATE-TAPE OUTPUT PRINTER. 

50^1 BEGIN. READ STATE-TAPE INTO WORK-AREA, AT END GO TO FINISH. 
Sim IF PUNCH-A-CARD GO TO PUNCH ELSE GO TO CHECK-C. 

52 CHECK-C. IF PUNCH-AND-PRI NT GO TO BOTH ELSE GO TO PRINT. 


Figure 2. cobol Source Listing 


Flag: This indicates the seriousness of the error. If the 
flag column is blank, the error will not stop compila- 
tion. If a double asterisk appears in the flag column, 
compilation stops and the message compilation sus- 
pended is printed after all statements have been ex- 
amined. 

Reference: This shows the code number of the diagnos- 
tic message. A detailed explanation of the error can 
be found by using this code to look up the associated 
diagnostic in the Diagnostic Reference List. 

Sequence: This refers to the source program statement 
in error. 

Message: This describes the nature of the error. After 
all errors have been analyzed and all diagnostic mes- 
sages have been printed for this phase of compila- 
tion, the message total number of errors is printed 


with a figure indicating the total number of diag- 
nostics that occurred. Then the message compila- 
tion suspended is printed if a double asterisk was 
printed in the flag column for any of the diagnostic 
messages given. If none of the diagnostic messages 
was flagged, the message press start to continue 
is printed, and compilation can be continued. 

Following this first list of diagnostic messages, the 
cobol dictionary is printed. If a name-oriented error 
is detected, a diagnostic message will be printed, 
compilation will be discontinued, and the message 
run discontinued will be printed. 

As compilation continues, discrepancies between 
the Data Division and the Procedure Division will be 
detected. If such errors are found, additional diag- 
nostic messages will be printed in this format. 
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SYMBOLIC 

LISTING 


0136 

FA20 

EQU 

I A 11 

0137 


^ DS 

#50 

0138 

A10 

(BJDS 

00050 

0139 


W 0RG 


0140 


DCW 

3 3 

0141 

LA 12 

EQU 

*+l 

0142 


^ DC 

#50 

0143 

All 

©DC 

00100 

0144 


0RG 


0145 


DCW 

a 3 

0146 

LAI 3 

EQU 

*+l 

0147 


DCW 

#50 

_ _ _ _ 

0200 


0RG 

0VRLAY 

0201 

STARTS 

EQU 

*+l 

0202 

J08 

©EQU 

*+ 1 

0203 



I0C0PN 

0204 


NOP 

IA10-17 

0205 


B 

I0C0PN 

0206 


NOP 

IA1 1-17 

0207 

J02 

(d)equ 

*+ 1 

0208 


SBR 

1 0CUXT+03 » *+ 1 1 


Figure 3. Symbolic Listing 

FLAGS REFERENCE SEQUENCE COMMENTS MESSAGE 
** D14 0113 INVALID EDITING 

Note: Each diagnostic not corrected also appears 
(altered slightly) as an Autocoder comment line, in- 
dicated by an *, in the Autocoder symbolic-program 
listing. 


**: This indicates an error that must be corrected be- 
fore an object run is attempted. 


D14: This is an example of the reference -list code. The 
Diagnostic Reference List contains more detailed 
explanations of the diagnostic messages. 


0113: This is an example of the Autocoder line number 
of the statement. 

*: This is a comments flag to the Autocoder processor. 

Message: This is a general description of the error. At 
the end of compilation, the message number of 
errors needing correction, followed by the message 
total number of diagnostics, may be printed with 
figures indicating the number of errors needing cor- 
rection and the total number of diagnostics. Then 
this message will be printed to show symbolic listings 
and/or symbolic punched-card options: 

IF EXTRA OUTPUT DESIRED 
B ON FOR PUNCHED AUTOCODER 
D ON FOR PRINTED LISTING 
AND PRESS START 

IF NO EXTRA OUTPUT DESIRED, PRESS START 

(Also see Operating Functions.) 


Diagnostic Reference List 

Format Error Messages 

These diagnostic messages will be given for format er- 
rors that occur in the divisions under which they are 
listed. In cases where these diagnostic messages appear, 
the format specified should be carefully reviewed for 
errors. No reference code is given for these diagnostic 
messages. 

Environment Division Format Errors 

1. FORMAT ERROR — ASSIGN 

2. FORMAT ERROR — DEVICE NAME 1403-CT 

3. FORMAT ERROR — DEVICE NAME 1403-P 

4. FORMAT ERROR — SWITCH NAME 1403-P-CB 

5. FORMAT ERROR — MEMORY SIZE 

6. FORMAT ERROR — SWITCH NAME 1403-P-C9 

7. FORMAT ERROR — DEVICE NAME 1402-P 

8. FORMAT ERROR — DEVICE NAME 1402-R 

9. FORMAT ERROR — SELECT 

10. FORMAT ERROR — RESERVE ALTERNATE AREA 

11. FORMAT ERROR — SWITCH NAME 1403-SS 

12. FORMAT ERROR — SWITCH NAME 1403-P-CV 

Data Division Format Errors 

1. FORMAT ERROR — FD 

2. FORMAT ERROR — RECORDING MODE 

3. FORMAT ERROR — BLOCK CONTAINS 

4. FORMAT ERROR — RECORD CONTAINS 

5. FORMAT ERROR — LABEL RECORD 

6. FORMAT ERROR — VALUE OF 

7. FORMAT ERROR — DATA RECORD 

8. FORMAT ERROR — SIZE 

9. FORMAT ERROR — REDEFINES 

10. FORMAT ERROR — OCCURS 

11. FORMAT ERROR POINT LOCATION 

12. FORMAT ERROR PICTURE 

13. FORMAT ERROR — JUSTIFICATION 

14. FORMAT ERROR — LEAVING 

15. FORMAT ERROR VALUE 

Procedure Division Format Errors 

1 . FORMAT ERROR — MOVE 

2. FORMAT ERROR — OPEN 

3. FORMAT ERROR — MULTIPLY 

4. FORMAT ERROR — GO TO 

5. FORMAT ERROR DISPLAY 

6. FORMAT ERROR SUBTRACT 

7. FORMAT ERROR ADDITION 

8. FORMAT ERROR — DIVIDE 

9. FORMAT ERROR — ALTER 

10. FORMAT ERROR — ACCEPT 

11. FORMAT ERROR — CLOSE 

12. FORMAT ERROR — WRITE 

13. FORMAT ERROR READ 

14. FORMAT ERROR COMPUTE 

15. FORMAT ERROR — STOP 

16. FORMAT ERROR PERFORM 

17. FORMAT ERROR IF 
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Diagnostic Error Messages Inserted during Compilation 


Reference 

Number 

Division 

Message 

Comments 

A01 

Environment 

NEXT CARD OUT OF SEQUENCE 

The page and line number combination in the next source pro- 
gram card is not higher in value than that in the preceding card. 

A02 

Environment 
Data Procedure 

FORMAT ERROR CONTINUATION 

OF ALPHANUMERIC LITERALS 

If an alphanumeric literal is to be continued, a — symbol must 
appear in column 7 of the next source program statement line. 
Also, all lines containing alphanumeric literals must be enclosed 
in quote symbols. These lines can begin and end in any columns 
within the range of 12 through 72. 

A03 

Environment 
Data Procedure 

NUMERIC LITERAL EXCEEDS 
LEGAL LENGTH 

A numeric literal intended for computational use must have 
from one to 18 numerals. Other numeric literals can contain as 
many as 120 characters. 

A04 

Environment 
Data Procedure 

NAME EXCEEDS LEGAL LENGTH 

cobol names may be one to thirty characters long. 

A05 

Environment 
Data Procedure 

ALPHANUMERIC LITERAL EXCEEDS 
LEGAL LENGTH 

Alphanumeric literals can contain from 1 to 120 characters in- 
cluding blanks and special characters. 

A06 

Environment 
Data Procedure 

SPECIAL CHARACTER MUST BE AN 
ALPHANUMERIC LITERAL 

Special characters not contained in the cobol set may only be 
used in alphanumeric literals. Figure 4 shows the special char- 
acters included in the cobol set. 

A07 

Procedure 

ONLY AUTOCODER CAN BE ENTERED 
FROM COBOL 

There is no provision in cobol to enter any other language 
format except Autocoder. This is accomplished by using the 
enter verb. 

A08 

Identification 

PROGRAM-ID NOT SENSED 

A program-id paragraph must be present in every cobol source 
program. 

A09 

Identification 

IDENTIFICATION DIVISION NOT 
SENSED 

An Identification Division statement must be present in every 
cobol source program. 

B01 

Procedure; 

PERIOD MUST BE FOLLOWED BY VERB 
PARAGRAPH OR SECTION NAME 

The cobol statement in reference must be followed by a verb, 
paragraph, or section name. 

B02 

Procedure 

PERIOD MUST FOLLOW PARAGRAPH 
OR SECTION 

A period must be used to terminate the paragraph or section 
name in reference. 

Card Code 

COBOL 

7401 Meaning 


Blank 


space 


11 

- 

_ j minus sign 

\ hyphen 


12 

+ 

& plus sign 


0-1 

/ 

/ division sign 


11-4-8 

* 

* | multiplication sign 

\ check protection symbol 


12-4-8 

) 

□ right parenthesis 


0-4-8 

( 

% left parenthesis 


0-3-8 

/ 

, comma 


11-3-8 

$ 

$ dollar sign 


12-3-8 


( period 
( decimal point 


3-8 

= 

# equal sign 


4-8 

' 

@ quotation mark 


Figure 4. 

Special Characters 
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Number 

Reference 

Division 

Message 

Comments 

B03 

Procedure 

KEYWORD DIVISION MUST BE 
FOLLOWED BY A PERIOD 

A period must follow each division name. 

B04 

Procedure 

KEYWORD DIVISION NOT SENSED 

The complete name of every division must appear in all source 
programs. 

B21 

Environment 

CONFIGURATION SECTION NOT SENSED 

Each source program must contain a configuration section. 

B22 

Environment 

KEYWORD SOURCE-COMPUTER MUST 
FOLLOW CONFIGURATION SECTION 

The first entry in the configuration section must be the 
source-computer statement. 

B23 

Environment 

IBM-1401 CLAUSE NOT SENSED 

The source program must indicate the types of computers being 
used for both processing and executing the cobol program. 

B24 

B25 

Environment 

Environment 

INVALID ENTRY 

KEYWORD FILE-CONTROL MUST 
FOLLOW INPUT-OUTPUT SECTION 

The statement in reference is not valid in a cobol source pro- 
gram. 

The file-description entries must follow the input-output sec- 
tion statement. 

B26 

Environment 

PERIOD MUST FOLLOW PARAGRAPH 
SECTION OR DIVISION 

A period must be used to terminate a paragraph, section, or 
division. 

B27 

Environment 

PERIOD MUST FOLLOW ENTRY 

Review this entry using the sequence reference. This entry must 
be terminated by a period. 

B28 

Environment 

KEYWORD SECTION NOT SENSED 

The keyword section must appear in these entries : 
file section 

working-storage section 
constant section 

B29 

Environment 

KEYWORD DIVISION NOT SENSED 

The complete name of every division must appear in all source 
programs. 

B31 

Procedure 

MISSING PERIOD AT END OF PROGRAM 

The last entry of all source programs must be tenninated by a 
period. 

B41 

Data 

WORKING-STORAGE SECTION OUT OF 
SEQUENCE 

The working-storage section must follow the file section in 
the Data Division. 

B42 

Data 

CONSTANT SECTION OUT OF 
SEQUENCE 

If the source program has a working-storage section, the con- 
stant section must immediately follow it. If the source pro- 
gram does not have a working-storage section, the constant 
section must follow the file section. 

B43 

Data 

RECORDING MODE MUST BE 1 

All 1401 cobol programs must specify a recording mode of 1. 

B44 

Data 

DATA RECORDS CLAUSE MUST 
BE IN FD 

Each fd must end with a data records clause. This permits the 
processor to cross-reference the file-description entry and the 
individual record-description entries of each record. 

B45 

Data 

LABEL RECORDS CLAUSE MUST 
BE IN FD 

This label records clause must always be present in a file 
description entry. 

B46 

Data 

DUPLICATE RECORDING MODE CLAUSE 

This statement can be removed from the source program. 

B47 

Data 

DUPLICATE BLOCK CONTAINS CLAUSE 

This statement can be removed from the source program. 

B48 

Data 

DUPLICATE RECORD CONTAINS 
CLAUSE 

This statement can be removed from the source program. 

B49 

Data 

DUPLICATE VALUE OF CLAUSE 

This statement can be removed from the source program. 

B51 

Data 

A PERIOD MUST FOLLOW ENTRY 

This statement must be terminated by a period. 
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Reference 

Number 

Division 

Message 

Comments 

B52 

Data 

DATA DIVISION NOT FOLLOWED BY 
VALID SECTION 

The Data Division statement must be followed by at least one 
of these sections: 

file section ( contains file- and record-description entries ) 
working-storage section (contains record-description 
entries ) 

constant section ( contains record-description entries ) 

B53 

Data 

DUPLICATE CONSTANT SECTION 

A cobol source program can contain only one constant section. 

B54 

Data 

DUPLICATE WORKING-STORAGE 
SECTION 

A cobol source program can contain only one working-storage 
section. 

B55 

Data 

LEVEL NUMBER MUST BE FOLLOWED 
BY NAME OR FILLER 

All level numbers (01-49, 77 and 78) must be followed by a 
name or by the word filler. 

B56 

Data 

FORMAT ERROR 

This statement is written in an invalid format. 

Error examples : 

1. picture is 999 value is 10 left justified. The statement 
must be written as justified left. 

2. picture is 99v x (10). Blanks cannot be used in a picture in 
this manner. 

B57 

Data 

KEYWORD SECTION NOT SENSED 

The word section must appear in these entries : 
FILE section 

working-storage section 

CONSTANT SECTION 

B58 

Data 

KEYWORD DIVISION NOT SENSED 

The complete name of every division must appear in all cobol 
programs. 

B85 

Data 

FIGCON ALL MUST BE FOLLOWED 
BY ALPHANUMERIC LITERAL 

The all figurative constant generates a sequence of characters 
specified by any non-numeric literal. 

B91 

Data Procedure 

MISSING PERIOD BEFORE PROCEDURE 
DIVISION 

The source program statement that precedes the Procedure Divi- 
sion statement must be terminated by a period. 

B92 

Procedure 

KEYWORD MUST NOT BE USED 
AS A LABEL 

Words listed as cobol keywords must be used only as specified 
by the cobol language. 

B97 

Data 

DATA DIVISION NOT SENSED 

A Data Division statement must be included in every source 
program. 

B98 

Procedure 

PROCEDURE DIVISION NOT SENSED 

A Procedure Division statement must be included in every 
source program. 

B99 

Environment 

ENVIRONMENT DIVISION NOT SENSED 

An Environment Division statement must be included in every 
source program. 


In this example, Nl, N2, and N3 are declared as data names 
with the values defined in the value clauses. 

01 nameI 

02 name2 
88 n1 value is 1 
88 n2 value is 3, 6 
88 n3 value is 7,11 

Thus, the statement: 

if n2 — 4 then is in error because 

n 2 was previously defined as having a value of 3 or 6. 

D01 Data picture exceeds 30 characters A cobol picture description can not contain more than 30 

characters. 

For example: 

The picture description 9(450) consists of six actual charac- 
ters and is, therefore, properly declared. However, if the pro- 
grammer had written 450 nines on the coding sheet to describe 
the same picture, the coding sheet would be in error. 


C01 Procedure condition names must not be 

USED AS SUBJECTS 
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Reference 

Number Division Message 

D02 Data conflicting editing clauses 


D05 Data conflict between picture and 

size clause 


D06 Data conflict between picture and 

POINT LOCATION CLAUSE 


D07 Data conflict between picture and 

CLASS 


D08 Data conflict between picture and 

EDITING CLAUSE 


D09 Data elementary item must have 

SIZE OR PICTURE CLAUSE 


Dll Data a record area must not exceed 

999 CHARACTERS 

D12 Data rli must be 4 characters 


D13 Data record sizes within this fd 

MUST NOT CONFLICT 


D14 Data invalid editing 


D99 Data picture clause invalid with 

group item 


Comments 

Only one of the following clauses may be used to edit a field: 

1. ZERO SUPPRESS 

2. CHECK PROTECT 

3. FLOAT DOLLAR SIGN 

If more than one of these is specified, the last specified clause is 
chosen for use. Complex editing should be specified by using a 
picture clause. 

If a specified size clause conflicts with a specified picture 
clause, the picture specifications take precedence over the size 
specifications. 

Example: size is 10 conflicts with picture 9(6). The processor 
will use 6 as the size for the item defined. 

If there is a conflict between a point location and a picture 
clause, the picture specifications take precedence over the 
point location specifications. 

Example: picture is 9V99 conflicts with point left 3. The 
processor will cause the decimal point to be located immediately 
to the left of the hundreds position of the field. The point loca- 
tion clause specifying that the decimal point be located imme- 
diately to the left of the thousands position is ignored. 

If there is a conflict between a class and a picture clause, the 
picture specification takes precedence over the class clause. 
Example: picture is 999. 

CLASS IS ALPHANUMERIC 

In this example class must be specified as numeric because the 
picture clause specified a numeric field. 

If there is a conflict between an editing and a picture clause, 
the picture specifications take precedence over the editing 
clause. 

For example, if the clause: 

picture is $$$9 

is used and an editing clause specifying float dollar sign is 
also used, the picture clause takes precedence over the editing 
clause. 

An element of data (elementary item) must never be subdivided. 
Each elementary item must be specified by either a size or 
picture clause in the Data Division. 

A record may be described as containing as many as, but no 
more than, 999 characters. 

The Record Length Indicator (RLI) must be four characters 
long, including high-order zeros. 

If a fd contains more than one level 01 item, an implied re- 
definition results in a redefinition of the first 01. If the record 
size is variable, the depending clause should be used. This 
diagnostic message is given because record lengths within the fd 
were not the same. This condition could cause an error to occur 
at object program execution time. 

The editing is not specified according to the cobol requirements. 
All editing for the entry in reference was omitted by the 
processor. 

Examples of such illegal coding are : 

1. Invalid symbols in a picture clause. 

2. The size of the item to be edited exceeds 120 characters. 

3. Zero suppression is specified for only the high-order position 
of a field. 

4. db (debit symbol) or cr (credit symbol) is not specified for 
the rightmost or leftmost positions of the field. 

Only elementary items can have a picture clause. 
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Reference 

Number Division 


Message 


Comments 


E01 Data (IOCS) hardware device multi-defined ibm 1401 Data Processing System devices can not be multi- 

defined. The example shown illustrates two combinations that 
will cause multiple-definition errors. 

Statements 1 and 2 or statements 1 and 3 cause a multiple defi- 
nition of the 1402 card punch because 1402-P is assigned to punch 
in special names. Statements 2 and 3 excluding statement 1 
will cause a multiple-definition error because two files cannot be 
assigned to the same device. 

Example: 

1. SPECIAL NAMES. 

1402-p, 4 is punch. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

2. SELECT FILE2 ASSIGN TO 1402-P, 

3. SELECT FILE3 ASSIGN TO 1402-P. 


E02 

Data (IOCS) 

BLOCK SIZE MUST NOT EXCEED 
OBJECT-COMPUTER SIZE 

Blocking specified in the cobol source program must not specify 
more than the core-storage capacity of the object computer. 

E03 

Data (IOCS) 

FORM 3 RECORDS NOT PERMITTED 

cobol does not permit unblocked, variable-length records. 

E04 

Data (IOCS) 

BLANKS IN HEADER-LABEL ID 
NOT PERMITTED 

Blanks in header-label id will be replaced with a period. 

E05 

Data (IOCS) 

UNIT RECORD FILES MUST HAVE 
STANDARD RECORD SIZES 

These sizes must be specified for unit-record files : 
Card Reader — 80 characters 
Card Punch — 80 characters 
Printer — 100 or 132 characters 

E06 

Data (IOCS) 

FORM 4 RECORDS-BLOCK SIZE 
MUST BE IN CHARACTERS 

The block size for Form-4 records must not be specified by using 
the keyword record(s). Thus, the example shown is in error. 
Example: 

BLOCK CONTAINS 
400 RECORDS 

E07 

Data (IOCS) 

FILE MUST BE SELECTED 

Each file to be processed by the object program must be named 
in a select file-name entry. The name must be unique within 
the source program. 

E08 

Data (IOCS) 

BLOCK SIZE MUST NOT EXCEED 
4 DIGITS 

The block size specification can contain a maximum of four 
digits, including high-order zeros. 

E09 

Data (IOCS) 

RECORD SIZE MUST NOT EXCEED 
BLOCK SIZE 

A record-size specification must designate more characters than 
the size specification for the block that contains the record. 

E10 

Data (IOCS) 

UNIT RECORD FILES MUST HAVE 
FORM 1 RECORDS 

Blocked records are not permitted in unit-record files. 

Ell 

Data (IOCS) 

UNIT RECORD FILE-LABEL RECORDS 
MUST BE OMITTED 

The label records clause for unit-record files must be specified 
as OMITTED. 

E12 

Data (IOCS) 

FILE MUST BE OPENED 

The open verb is used to indicate the processing of one or more 


input and/or output files. At least one of the two clauses must 
be written. The clauses may specify that one or more files be 
opened. 


E13 Data (IOCS) unit record files must not All alternate areas needed for unit-record files are reserved auto- 

reserve alternate areas matically by the processor. Thus, the programmer must not re- 

serve alternate areas for unit record files. 

Error example: 

SELECT READER ASSIGN TO 1402-R 
RESERVE 1 ALTERNATE AREA. 

F01 Procedure end statements not associated At least one implicit or explicit at end statement must be asso- 

WITII the foli, owing files dated with every read statement. Once an at end statement has 

been executed, an attempt to read from the associated file will 
constitute an error unless a subsequent close and open have 
been executed for that file. 
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Reference 

Number Division Message Comments 


HOI 

Procedure 

INVALID USE OF SUBSCRIPTING 

This diagnostic message occurs when invalid subscripting is used 
without an occurs clause. 

Error example: 

DATA DIVISION. 




FILE SECTION, 

01 nameI 

02 name2+ 

03 name3 

procedure division. 




move name2 (3) TO WORK area 

fThe procedure statement specifies subscripting. Therefore, 
name2 must contain an occurs clause. 

IOO 

Procedure 

A-FIELD EXCEEDS B-FIELD 

The field being moved is larger than the field to which it is to 
be moved. High-order positions will be dropped. 

101 

Procedure 

NON-NUMERIC FIELD USED IN 
COMPUTATION 

The referenced field is arithmetic and not defined as numeric. 

102 

Procedure 

EDIT MASK TOO SMALL 

A giving, compute, or move using edited fields too small to ac- 
cept the field being placed into the edited mask will produce 
this diagnostic message. 

Example: Moving field 12345 to an edited mask $$$99 is erro- 
neous because this edit mask will accept only four characters. 

103 

Procedure 

A-FIELD EXCEEDS 18 DIGITS 

Fields used in arithmetic computations and expressions must not 
exceed 18 digits. 

105 

Procedure 

B-FIELD EXCEEDS 18 DIGITS 

See 103. 

106 

Procedure 

NON-NUMERIC FIGCON USED IN 
COMPUTATION 

Only the figurative constant zero can be used in arithqietic 
computations. 

107 

Procedure 

INVALID SOURCE 

If a source-program statement is determined to be meaningless, 
this diagnostic message is given. Following this message will be 
an expansion of the stop run literal. 

108 

Procedure 

INTERMEDIATE RESULTS MUST NOT 
EXCEED 20 DIGITS 

Fields requiring decimal alignment in arithmetic computation 
must not have intermediate results that exceed twenty digits. 

109 

Procedure 

ALPHANUMERIC TO NUMERIC MOVE 

This diagnostic message is given if a group item (declared as 
numeric) is moved to an elementary numeric field. All group 
items are classed as alphanumeric. 

110 

Procedure 

INVALID SOURCE IN PRECEDING 

STATEMENT 

If an incorrect source program statement is detected in a display 
statement, this error message is given. 

Example: display on (name) is incorrect, but display upon 
(name) is the correct format. 

111 

Procedure 

ROUNDED EXCLUDES LEFT JUSTIFY 
CLAUSE 

If left justification is used in conjunction with the rounded op- 
tion, justification is ignored by the processor during compilation. 

112 

Procedure 

GROUP ITEMS MUST NOT HAVE 
IMPLIED DECIMAL 

Decimal alignment is not performed when group items, classified 
as numeric, are moved. 

113 

Procedure 

GROUP ITEM MUST NOT BE USED 
IN COMPUTATION 

Only elementary items can be used in arithmetic computations. 
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Reference 

Number Division 


Message 


Comments 


115 Procedure invalid use of group 


117 Procedure item exceeds 20 digits 


118 Procedure class contradiction 


119 Procedure invalid use of editing 


120 Procedure size of literal must equal 1 

121 Procedure invalid subscripting 


COBOL Tape-Print Program 

Conditions may arise that the cobol processor recog- 
nizes as being instrumental in causing a failure. In 
these cases, the message system failure is printed on 
the printer. The processor then calls in a storage- and 
tape-print program. The contents of core storage and 
the tape work files are printed on the printer. 

Among the conditions that may cause a system 
failure are: 


1. When either of the conditionals if positive or if negative 
is used, the field referred to must be elementary. 

2. When either the conditional if numeric or if alphabetic is 
used, the field referred to should be elementary. If the fields 
are not elementary, the diagnostic message will be given to 
remind the programmer that he should review the units posi- 
tions of fields being tested for zone bits. 

A numeric field defined to be used for computational purposes 
must not be larger than twenty digits. If such a numeric field 
exceeding twenty digits is compared, this diagnostic message is 
given. An instruction to perform a non-numeric compare is also 
given. 

This diagnostic message indicates that the fields being operated 
on should be reviewed to determine if there is a contradiction in 
classes. For example, a numeric field compared to a non-numeric 
figurative constant would cause this diagnostic message to 
appear. 

Editing must be performed on data fields that appear in proce- 
dure statements with the appropriate verbs. 

Example: 

1. The field referred to by the accept verb must not have edit- 
ing. 

2. Editing must not be specified for an integer referred to by 
name in the times option of the perform verb. 

If the literal must be one character long (for example, in use 
with the examine verb), this message is given. 

Error example: 

data division. 

01 TABLE 

02 nameI occurs 3 times size is 2 

PROCEDURE DIVISION. 

MOVE nameI (1,2) 

The statement in the Procedure Division contradicts the declara- 
tion for nameI. 


1. An end-of-file indication was sensed by the proc- 
essor before the end of the file was reached. 

2. An excessive number of tape read or tape write 
errors occurred on the work tape. 

3. An error in COBOL-prescribed sentence structure 
occurred when coding the source program. This 
type of error is detected in the phase of the proc- 
essor that analyzes the particular part of the pro- 
gram. For example, an error in subscripting would 
be detected in phase HOI. 
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COBOL Phase Descriptions 


The ibm 1401 cobol processor has ten sections. Each 
section performs a particular function in converting the 
cobol source-program statements to Autocoder state- 
ments. 

Phase-AOl 

1. Reads the cobol source program from cards or tape. 

2. Assigns a sequence number to each entry. 

3. Lists the contents of each source-program card on 
the printer. 

Phase A02 

Processes the Identification Division. 

Phase AOB 

Conditions storage and reads in phase A03. 

Phase A03 

1. Conditions words and operators for further process- 
ing. 

2. Checks the source program for errors in the use of 
the character set, names, picture clauses, and word 
lengths. 

3. Checks the program for the enter verb and condi- 
tions the included Autocoder statements for further 
processing. 

Phase A04 

Searches for the various divisions of the source program 
and calls in phases A05, A06, and A07 to compress key- 
words and delete unnecessary words as follows: 

Phase A05 Environment Division keywords 
Phase A06 Data Division keywords 
Phase A07 Procedure Division keywords. 

Phase A20 

This phase is called conditionally to place Autocoder 
entries on tape 4 for future merging by the J phases. 

Phase BD1 

Diagnoses the Environment Division. 

Phase BD2 

Checks the file section for syntax errors and checks 
for duplicate entries in the Data Division (first pass). 


Phase BD3 

Checks the Procedure Division verbs for syntax errors 

(first pass). 

Phase BD4 

Checks the constant and working-storage sections of 

the Data Division for syntax errors (second pass). 

Phase BD5 

Checks the Procedure Division verbs for syntax errors 

(second pass). 

Phase BD6 

1. Calls phases BTI, BT2, and BT3 for printing diag- 
nostic messages. 

Phase BTI Environment Division diagnostic table 
Phase BT2 Data Division diagnostic table 
Phase BT3 Procedure Division diagnostic table. 

2. Prints all diagnostic messages and determines 
whether compilation is to be suspended. 

Phase B01 

1. Conditions the source program for further process- 
ing. 

2. Converts level numbers of data description entries 
to internal level operators. 

Phase B02 

1. Builds a table of Procedure Division literals and 
level 88 values to be processed by phase Bll. Du- 
plicate literals are eliminated. 

2. Builds a table of Data Division literals and elimi- 
nates duplicates. 

Phase B1 1 

1. Calculate class, size, and decimal count for data and 
procedure literals. 

2. Writes literal declarations on tape 4. 

Phase B03 

1. Builds a table of procedure names used in the cobol 
source program. 

2. If the program has an enter verb, the cobol names 
referred to by Autocoder statements following the 
enter verb are entered into the same table as the 
procedure names. 
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Phase B04 

Uses the tables built by phase B03 to convert proce- 
dure names to reference names for further processing. 

Phase BOS 

1. Builds a table of names used in procedural state- 
ments, such as REDEFINES aild DEPENDING, and COBOL 
names referred to by Autocoder statements follow- 
ing the enter verb. 

2. Compresses data names, used in procedure state- 
ments, for further processing. 

Phase B06 

Matches cobol source programs data names and spe- 
cial names with the processor-produced compressed 
names and generates a unique compressed name for 
each name used in the cobol program. 

Phase B07 

Builds a table of processor-produced compressed names 
used in qualification. It also builds a table of declara- 
tion names and procedural names used in qualification. 

Phase BOB 

Develops a unique compressed name from the quali- 
fied names used in procedure statements. 

Phase B09 

1. Lists all cobol source names according to Environ- 
ment Division special names, data names, and pro- 
cedural names categories. Generated sequence num- 
bers are listed with these names. 

2. If the source program contained errors in names, the 
errors are detected and phase BIO is called. 

Phase BIO 

1. Analyzes errors detected during the execution of 
phases B04, B06, and B08. 

2. Source names which have multiple definitions or are 
undefined are listed on the printer. 

Phase C01 

1. Phase C01 is executed if a special-names paragraph 
appears in the source program. 

2. Generates statements to equate Autocoder names to 
cobol names. 

Phase C02 

Processes level 88 items. 

Phase C03 

Processes data values if level 88’s are not used in the 
source program. 


Phase D01 

1. Analyzes picture clauses to determine size, class, 
decimal count, and editing. 

2. Builds a table of all level 01 items for further proc- 
essing. 

Phase D02 

1. Builds a description for each Data Division entry. 
The information in the source declarations is used 
as a basis for building this table. 

2. Updates these descriptions with information ob- 
tained from the picture analysis. 

3. Generates diagnostic messages if discrepancies are 
detected. 

Phase D03 

1. Phase D03 is called if editing is used. 

2. Builds and declares edit masks and completes the 
edit section of the data description. Writes editing 
masks on tape 4. 

Phase D04 

1. Establishes the group item size by totaling the sizes 
of elementary items. 

2. Provides padding for occurs clauses. 

3. Controls redefinition. 

4. Generates origins, storage declarations, and equates. 

5. Processes subscript levels. 

Phase D05 

1. Controls the placement of word marks for each 
entry. 

2. Processes file record sizes and equates. 

3. Processes nested redefinition entries. 

Phase D06 

1. Separates data and places delimited items from D05 
on the proper output tape. 

2. Expands macros and writes storage declarations on 
tape 4. 

Phase E01 

Produces the job card for the object program. 

Phase E02 

1. Examines the source program for control and iocs 
information. 

2. Stores this data, in an abbreviated form, in core 
storage. 

3. If no files are declared, phase E04 is called. 
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Phase E03 

1. Executes any required internal computations, based 
upon data stored by E02. 

2. Completes diocs-dtf information by examining all of 
the data obtained from the source program and se- 
lecting the appropriate implied specifications. 

Phase E04 

1. Analyzes the legality of the source data. 

2. Selects the appropriate set of diagnostic messages. 

Phase E05 

1. If no files were defined: 

a. Writes ctl and org statements on tape unit 4. 

b. Writes diagnostic message indicators on tape unit 
4, if appropriate. 

c. Calls phase F01. 

2. Writes ctl and diocs statements on tape unit 4. 

3. Writes diagnostic message indicators, if appropriate. 

4. Writes diocs entries on tape unit 4. 

Phase E06 

Writes da entries on tape unit 4, if appropriate. 

Phase E07 

Writes dtf entries and appropriate diagnostic message 
indicators on tape unit 4. 

Phase F01 

Processes these portions of the Procedure Division: 

a. open — Deletes input and output designations. 

b. close — Deletes rewind options. 

c. write — Converts write to write from if such form 
is appropriate. 

Phase F02 

1. Processes conditional expressions. 

2. Processes compute statements. 

Phase F03 

1. Processes conditional expressions. 

2. Processes read statements. 

Phase F04 

1. This phase is called if the perform verb is used in 
the Procedure Division. 

2. Generates labels for names associated with the per- 
form statements and inserts them into the symbolic 
entries developed from these perform statements. 

3. Associates the last name in perform statement with 
the label and builds a table of these elements. 


Phase F05 

1. Searches for procedure names and inserts any nec- 
essary labels such as return-linkages. 

2. Searches the table built in phase F03 for the proce- 
dure names found, and conditions labels for further 
processing. 

Phase G01 

1. Breaks down the following cobol source statements 
into macro form: 

a. ADD 

b. SUBTRACT 
C. MULTIPLY 

d. divide 

e. move 

f. perform (options 1 and 2) 

g. READ ( no AT END) 

2. Conditions perform ( options 3, 4, and 5) and read 
(at end) for further processing. 

Phase G02 

1. Processes arithmetic operators in arithmetic expres- 
sions and compute statements. 

2. Processes relational operators in if and until ex- 
pressions. 

3. Passes generated labels and logic connectors to 
phase G03. 

Phase G03 

1. Processes conditional sentences. 

2. Ties in generated labels for read linkage, until, and 
if with conditional sentences. 

Phase G04 

1. Builds macro statements. 

2. Creates linkage macros for perform options 3, 4, 
and 5. 

3. Determines the number of temporary object-ma- 
chine storage areas needed for arithmetic compu- 
tations. 

Phase G05 

Eliminates redundant linkages in relational statements. 

Phase G06 

Eliminates redundant, generated, temporary, object- 
machine storage areas. This fully optimizes arithmetic 
statements. 

Phase HOI 

1. Collects data, device, switch, and literal descriptions 
and converts them to table entries. 
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2. Processes subscript macros. 

3. Inserts the appropriate data name in the symbolic 
statements after each occurrence of a subscript data 
name. 

Phase H02 

Prepares storage for phases Id 03, H04, and H05. 

Phase H03 

1. Initializes the table of data descriptions. 

2. Clears storage. 

3. Calls phase H04. 

Phase H04 

1. Builds a table of data descriptions in storage. Entries 
that have already been processed are deleted. 

2. Calls phase H05 when the Procedure Division is 
recognized. 

Phase H05 

1. Merges data descriptions after each name in the 
Procedure Division that has a description. 

2. Returns to phase H02 if necessary. 

Phase 101 

1. Selects the appropriate model statements for fixed 
expansions, for the advancing option, for stop run, 
and switches. 

2. Conditions relational macros for further processing. 

Phase 102 

1. Establishes parameters for display, accept, and go 
to depending routines. 

2. Expands if numeric and if alphabetic macros. 

3. Selects appropriate model statements for the stop 
literal statement. 

4. Makes a diagnostic scan of arithmetic expressions. 

Phase 103 

1. Conditions input data for further processing and 
scans data for validity. 

2. Conditions giving, positive, negative, and relational 
macros for further processing. 

3. Makes a diagnostic scan of arithmetic expressions. 

Phase 104 

1. Selects appropriate model statements and subrou- 
tines for move and move all macros. 

2. Conditions positive and negative macros for further 
processing. 


Phase 105 

Conditions arithmetic macros for further processing 

by 106. 

a. Keeps a record of intermediate accumulators. 

b. Calculates decimal alignment. 

c. Optimizes model statements to be selected. 

Phase 106 

1. Selects appropriate model statements for arithmetic 
macros. 

2. Conditions relational macros for further processing. 

Phase 107 

1. Selects appropriate model statements for all arith- 
metic macros that have not been processed up to 
this phase. 

2. Selects appropriate model statements for the posi- 
tive and negative macros. 

3. Makes a diagnostic scan of giving and giving 
(rounded) macros. 

4. Processes rounding, editing, and decimal alignment 
of giving macros. 

5. Selects appropriate model statements for giving 
macros. 

Phase 108 

1. Determines the type of comparisons to be set up for 
relational statements. 

2. Calculates decimal alignment for these comparisons 
if it is necessary. 

3. Selects appropriate model statements and subrou- 
tines. 

4. Makes a diagnostic scan of relational macros. 

Phase 109 

1. If no IOCS is specified, J1 is called. 

2. Translates diocs and dtf entries, read from tape 
unit 4, into an internal macro format. 

Phase SP1 

Copies the remainder of the getx tape into the putx 

tape. 

Phase NO 

1. Outputs call for Autocoder statements by expanding 
the diocs and dtf macros. 

2. Controls the manipulation of the diocs and dtf logic 
tables. 

Phases SOI through SOS 

Are diocs logic tables. 
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Phases T02 through T09 

Are dtf logic tables. 

Phase SP2 

Copies the remainder of the getx tape onto the putx 
tape. 

Phase J01 

1. Substitutes parameters into model statements se- 
lected from the library. 

2. Provides for reiteration if all of the model statement 
tables will not fit into core storage. 

3. If no IOCS is specified, the di and dt tables are not 
retrieved. 

Phases Dll through D19 

Are diocs Autocoder model statement tables. 

Phases DTI through DTO 

Are dtf Autocoder model statement tables. 

Phases JE2 through JE6 

Are cobol Autocoder model statement tables. 

Phase SP3 

Copies the remainder of the getx tape onto the putx 
tape. 

Phase JA7 

Conditions operation codes and substitutes constants 
into the Autocoder instructions. 

Phase J07 

1. Sets up routing linkages. 

2. Calculates subscript addresses. 

3. Generates incld for subroutines. 


Phase J08 

Selects from tape 4 the items listed and writes them on 
put tape in this sequence: 

1. job card 

2. ctl (control) card 

3. org (origin) card 

4. diocs entries 

5. dtf entries 

6. Procedure literals 

7. Edit masks 

8. Storage declarations 

9. File areas 

10. Generated incld 

11. Generated constants, index registers, temporary 
storage accumulators, and tally registers 

12. Data literals and data moves 

13. Procedure instruction from get tape. 

Phase J09 

1. Prints diagnostic messages that occurred because 
conflicts exist between the entries in the Data Divi- 
sion and the Procedure Division. 

2. Merges Autocoder symbolic statements with diag- 
nostic messages. 

3. Calls in phases JT1-JT3. 

Phases JT1 through JT3 

Contain IOCS data and procedure diagnostic tables. 

Phase J10 

1. Writes Autocoder statements on tape unit 4 for as- 
sembly of the machine-language object program. 

2. Merges the cobol source program with the Auto- 
coder statements if the source symbolic listing op- 
tion is exercised. 
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COBOL Subroutines 


The subroutine chart outlines each subroutine and 

The subroutines used by the 1401 cobol processor 
described here. 

are gives the subroutine name with the reason the subrou- 

tine is called by the processor . 

Subroutine 

(Mnemonic) 

Subroutine 

Reason Subroutine Is Called 

XMN 

Examine 

Use of the examine verb. 

XXJ 

Subscript- 1 

Use of one-level subscripting. 

XXK 

Subscript-2 

Use of two-level subscripting. 

XXI, 

Subscript-3 

Use of three-level subscripting. 

yaq 

Alpha compare 

Alphabetic record with subfields compared to any data item. 

YCL 

Figcon compare 

Field whose size is greater than 1 being compared to a figura- 
tive constant whose size is greater than 1. 

YIN- 

If numeric 

Any alphanumeric field whose size is greater than 1 being 
tested for a numeric value. 

YIP 

If alphabetic 

Any alphanumeric field whose size is greater than 1 being 
tested for an alphabetic value. 

ZAX 

Accept 

Use of the accept verb. 

ZDY 

Display 

Use of the display verb. 

ZET 

Editing 

Use of: 1. cobol zeros 

2. Floating + or — 

3. db or single + 

ZFZ 

E xponentiation- 1 

Raising an expression by an integer exponent. 

ZGP 

Go to depending 

Use of depending option of go to statement. 

ZML 

Move all 

Use of all option of move verb. 

ZMR 

Move record 

Use of a record with subfields in a move statement, except in 
the case when the other field is a record of equal length. 

ZZZ 

Basic package 

Used with any subroutine. 

ZXZ 

Exponentiation-2 

Raising an expression by a non-integer exponent. 


Halts and Messages 

Compile-Time Halts 

Contents of 
I-Address 


Register 

Phase 

Message 

Explanation 

Operator Action 

056 

Program Boot 

None 

Tape transmission error occurred 
while trying to load the system. 

Rewind the system tape on unit 1 
and press the Tape Load key. 

155 

Any 

None 

Sense switch B should not be on 
during compilation of a cobol pro- 
gram. 

Turn off sense switch B and press 
the start key to continue. 

698 

Any 

None 

An error has occurred in the getx 
subroutine. 

Do a manual branch to 359 to ob- 
tain storage and tape print. 
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Contents of 
I -Address 
Register 


Phase 


Message 


Explanation 


Operator Action 


808 

UPDAT 

None 

An excessive number of read er- 
rors on tape unit n. 

1. Press start key to try to reread 
the record, or 

2. Change the tape and recompile. 

842 

UPDAT 

( Systems Run ) 

INCORRECT UPDATE 
CARD, OR PHASE 
NOT FOUND 

A deck of updat cards is in error. 

Correct deck of updat cards. 

842 

UPDAT 

( Systems Run ) 

END OF TAPE 
ON UNIT 2 

End-of-reel occurred on tape unit 
2 during system run. 

Use larger reel of tape. Restart 
system run. 

892 

Any 

te n 

A read error has occurred on tape 
unit n. This halt indicates ten 
failures to read correctly. 

1. Press the start key to try to re- 
read the record, or 

2. Change the tape and recompile. 

1616 

BD4 

None 

End of program sensed too soon. 

Do a manual branch to 359 to get 
storage and tape prints. 

1663 

Tape-Print 

Program 

READ ERROR-PRESS 
START TO REREAD OR 
RESET START TO SKIP 
RECORD 

( S elf-explanatory . ) 

If the record cannot be skipped, 
branch manually to 1729 to get the 
next tape file. 

2031 

BD6 

COMPILATION 

SUSPENDED 

Invalid source program statements 
have been detected. 

Correct the source deck as indi- 
cated by the diagnostic messages 
and recompile the program. 

2094 

Control Program 

NO CONTROL CARD- 
RELOAD CARDS AND 
PRESS START 

The first cards of a run must be: 

1. cobol run (for compilations), 
and 

2. systems run (for updating or 
copying the system). 

Insert the correct control card and 
press the start key to continue. 

2081 

BD6 

PRESS START TO 
CONTINUE 

Source program statements require 
diagnostic messages. 

Press the start key to continue. 

2149 

Control Program 

None 

The 1-0 check-stop switch is off, 
but a card-read error has been de- 
tected. 

Run out the cards, turn on the 1-0 
check-stop switch and restart. 

2221 

Control Program 

CANT READ UNIT 1 

Systems tape cannot be read. 

Press the start key to reread. Re- 
extract the system tape from the 
pid tape. 

2669 

Jio 

END OF REEL 

An end-of-reel condition was de- 
tected while Autocoder statements 
were being written on tape 4. 

Replace the reel on tape unit 4 
with a reel containing more tape 
footage and restart. 

2821 

Control Program 

None 

An end-of-reel condition was de- 
tected during the systems run. 

Replace the reel on tape unit 2 
with a reel containing more foot- 
age and restart the run. 

2757 

BIO 

RUN DISCONTINUED 

Source - program statement error 
caused compilation to stop. 

Correct the source program and 
restart compilation. 

2767 

Jio 

None 

This halt permits the user to exer- 
cise one of the extra output options 
at the end of job. 

Arrange the sense switches and 
press the start key. 

2818 

Jio 

END OF COMPILATION 

AUTOCODER ON TAPE 
UNIT 4 

Final halt at end of job. 


3262 

J07 

None 

End of program is sensed too soon 
(processor error). 

Do a manual branch to location 
359 for storage and tape prints. 

3486 

1 

SP 2 
3 

None 

End of reel condition on tape 5 or 6. 

Remove the reel on the affected 
tape unit. Replace the reel with an- 
other containing more tape footage. 
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Assembly-Time Halts 

For halts that can occur during the assembly of the 
machine-language object program, see Autocoder (on 
Tape) Language Specifications and Operating Proce- 
dures, IBM 1401 and 1460 (C24-3319). 

Object-Time Halts 

For halts that can occur during execution of the object 
program, see Input/Output Control System for IBM 
1401 (C24-1.462). 

Two additional error messages can occur. These are 
associated with error halts in the Z X Z subroutines: 

Message Explanation 

MINUS VALUE Negative bases cannot be raised to other 

than an integer power. 

value too large The maximum length of a value used for 
computation is 18 digits. 

If the start key is pressed when either of these halts oc- 
curs, the answer developed from computation will be 
zero and the program will continue. 

Sample Program: Table of Salaries 

This program computes a set of values, arranges them 
in a table and prints them. 

A monthly salary of $500 is used to compute the 
corresponding weekly and annual salaries, and the 
resulting figures are printed in columns titled Weekly, 
Monthly, and Annual. The monthly salary figure is 
then increased by $10 and the procedure is repeated. 
This process is continued until the table shows the cor- 
responding figures for all monthly salaries from $500 to 
$1000 at increments of $10. 

The format for the printed table is: 


int positions 

Heading 

1-46 

blank 

47-52 

WEEKLY 

53-55 

blank 

56-62 

MONTHLY 

63-65 

blank 

66-71 

ANNUAL 

72-132 

blank 


The corresponding figures are printed below the head- 
ings. 

To run the object program after it has been com- 
piled and assembled: 

1. Place the assembled deck for the Table of Salaries 
program in the card reader. This deck has 70003 
punched in columns 76-80. 

2. Ready the printer. 

3. Turn the I/O check-stop switch on. 

4. Press the load key on the card read-punch. 

5. Press the start key. 

The salary table will be printed followed by the mes- 
sage table values are correct if all the calculations 
are correct. If the totals do not balance, the message 
table values are not correct will be printed. 

The source-computer and object-computer entries 
for this program should be changed, if necessary, to 
indicate the storage size of the 1401 used to compile 
and run this sample program. 

Figure 5 is the source program as it is written on the 
cobol program sheet. 

Figure 6 shows the actual Table of Salaries printed 
during the running of the object program. 
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Figure 5. cobol Sample (Part 1 of 4) 
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Figure 5. cobol Sample (Part 2 of 4) 
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